home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / mcad.arc / D014.MCD < prev    next >
Encoding:
Text File  |  1987-05-08  |  1.0 KB  |  49 lines
  1. .MCD 11000 0
  2. .TXT 1 0 1 22 
  3. 1,22
  4. IT ALL GOES TOGETHER
  5. .TXT 2 4 3 67 
  6. 3,67
  7. All of these components -- MATH, TEXT, and PLOTS -- fit together 
  8. to create the ideal tool for doing math and documenting your 
  9. results. Look at this example with a Fourier Transform:
  10. .TXT 3 -1 1 68 
  11. 1,68
  12. ------------------------------------------------------------------
  13. .TXT 1 2 1 45 
  14. 1,45
  15. Generate sine curve with a random component
  16. .TXT 0 53 1 13 
  17. 1,13
  18. TIME DOMAIN
  19. .EQN 1 -38 3 30 
  20. ! rd=d ct=10 im=i et=6 zt=15 pr=3 mass length time charge 
  21. x[k:sin(k*π/8)+rnd(1)-.5
  22. .EQN 0 34 7 20 
  23. 2&-2&x[k{1,1,6,15,l}@16&0&k
  24. .EQN 1 -48 1 12 
  25. k~0;15
  26. .TXT 3 0 2 37 
  27. 2,37
  28. Now take the transform of the curve 
  29. and look at the power spectrum:
  30. .EQN 3 9 1 14 
  31. z:cfft(x)
  32. .TXT 0 22 1 18 
  33. 1,18
  34. FREQUENCY DOMAIN
  35. .EQN 1 -6 7 24 
  36. 3&0&|z[k,0{1,1,6,15,e}@16&0&k
  37. .TXT 0 26 2 17 
  38. 2,17
  39. (Press [F6] to 
  40. see a change)
  41. .TXT 1 -51 2 20 
  42. 2,20
  43. The spectrum shows 
  44. two peaks: 
  45. .EQN 2 1 2 23 
  46. z[1=(-0.078+2.14i)?
  47. .EQN 2 0 2 24 
  48. z[15=(-0.078-2.14i)?
  49.